home *** CD-ROM | disk | FTP | other *** search
- (******************************************************************************)
- (* This MODULE is Public Domain. Copy me like a beast! *)
- (* Christian Ledermann *)
- (* Wölfelkofen 2 *)
- (* 84166 Adlkofen *)
- (******************************************************************************)
- (* *)
- (* Started: 20.12.92 03:54:30 *)
- (* Version: 20.01.94 04:12:54 *)
- (* *)
- (******************************************************************************)
- (* *)
- (* Diese Software ist ohne jede Garantie. Ich verspreche *)
- (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die *)
- (* durch die Benutzung dieses Programmes entstehen. *)
- (* Jegliche Ersatzansprüche lehne ich ab. *)
- (* *)
- (******************************************************************************)
- MODULE TTPDemo;
- FROM GEMX IMPORT BasePagePtr;
- FROM SYSTEM IMPORT VAL;
- FROM InOut IMPORT WriteString,WriteInt,WriteLn;
-
- BEGIN
- WriteLn;
- WriteString(BasePagePtr^.CmdLine);
- WriteLn;
- WriteInt(VAL(INTEGER,(BasePagePtr^.CmdLine[0])),5);
- END TTPDemo.
-